<% usrid = Request.QueryString("usrid") error=Request.QueryString("err") Set Conn = Server.CreateObject("ADODB.Connection") Set rs1=Server.CreateObject("ADODB.Recordset") Conn.open "filedsn=c:\inetpub\orangepie\dsn\sqldb.dsn","orangepie","orpie99" sql="Select * from member where UsrId = '"&usrid&"'" rs1.Open sql,Conn,1,3 emailid=rs1("Email") if not error="" then emailid=Request.QueryString("email") email="* Email   " errmsg="Error: This email address already exists in our database. Please enter a new email address." else email="Email   " end if 'qstr="id1=" & usrid & "&id2=" & email 'pswd=rs1("pswd") name=rs1("Name") dob=rs1("DOB") gender=rs1("Gen") city=rs1("City") country=rs1("Country") ref=rs1("Know") pp=rs1("Penpal") address=rs1("addr") pincode=rs1("pin") intr=rs1("intr") profile=rs1("profile") optinoffers=rs1("OptInOffers") 's_name=split(name," ") 'fname=s_name(0) 'lname=s_name(1) b_dd=day(dob) b_mmm=Month(dob) b_yyyy=Year(dob) mchecked="checked" if gender="f" then fchecked="checked" end if if pp=true then che_pp="checked" end if if optinoffers=true then optinoffers="checked" end if rs1.Close set rs=nothing %> Orangepie-meminfo
   
     
  Free Fun eCards Friendship Connection | Poetry Contest | Deutsche | Help | Recommend Orangepie
 
Update Personal Information
 

<%=errmsg%>
Name   
<%=email%> 
Birthdate Gender : > Male  > Female

Address :
City : Areacode : Country :

name="penpal"> I would like to be on the Orangepie Friendship Connection list
     where people can find me, view my details and send me friendship e-cards.
name="optinoffers"> Please send me your newsletter and special offers.

Change Password  Change UserID

Back Home


Emails us at webmaster@orangepie.com
E-Cards From Orangepie

Copyright © 1999 by Orangepie. All Rights Reserved. Website Created & Designed by Astrosoft
_______________________________________________________________________________________________________
User Agreement | Privacy Policy | Register Now! | Advertise With Us | Add Orangepie Link